home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d14
/
demdat.arc
/
STKRNE.SBP
< prev
next >
Wrap
Text File
|
1990-06-01
|
1KB
|
56 lines
SBP
╜ STKRNE
╜ Client Telephone List
╜ Last updated Jan 21, 90
│ _ wrerror
hd1$ "Client Telephone List at " ( Q,"mmm dd,yy")
hd12$ "Ref: STKRNE"
m1:
┴
} ┴
{
{@2;"Number of records:";@21;&15 ( X,"9999.")
Æ ┴
ƒ
{@1;hd1$;@66;hd12$
{
{@2;"Client Location Telephone Hours"
{@2;"------------------------- ----------------------- ------------------- -----"
Æ ƒ
╔@2;&26Client.CLIENTS;&23Location.CLIENTS;@52;"(";&3Dialcode.COUNTRY;")";&16Telephone.CLIENTS;
&5GMT Zone_Min.COUNTRY
╨Country.CLIENTS Name.COUNTRY
m2:
íp$ "d" p
╩ ╦ss14$
╧ Ñ ▀
Æ í
repeat:
┬ms3$,"",135,a%
ía% 0 p wrexit
íp$ "p" p ╣;
wm1
rexit:
ä"menu"
rerror: ╜ On error
res% 0
í & 11 p
┬ms21$,ms22$,130,a%: ía% 1 pres% 1
^ í & 27 p
┬ms11$,ms12$,100,a%:res% 2
^
┬ (( &),"",113,a%:res% 1
Æ í
íres% 1 p yrepeat
íres% 2 p yrexit
É